home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 63 / 063.d81 / super 8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  6.6 KB  |  219 lines
  1. 10 poke53269,0
  2. 20 print"[147]":k$="1":k1$=k$:
  3. 30 poke53281,0:poke53280,0
  4. 40 poke147,0:sys57812"s8.spr",8,1:sys62631
  5. 50 poke147,0:sys57812"s8.fnt",8,1:sys62631
  6. 60 dim ta$(17):poke53272,29:goto1640
  7. 70 ta$(1)="1 & 2":ta$(2)="1 & 3":ta$(3)="1 & 4":ta$(4)="2 & 6":ta$(5)="2 & 5"
  8. 80 ta$(7)="3 & 4":ta$(8)="3 & 5":ta$(9)="3 & 6":ta$(10)="3 & 7":ta$(11)="4 & 6"
  9. 90 ta$(12)="4 & 7":ta$(13)="5 & 6":ta$(14)="5 & 8":ta$(15)="6 & 8"
  10. 100 ta$(16)="6 & 7":ta$(17)="7 & 8":ta$(6)="2 & 3"
  11. 110 v=53248:fort=0to7:poke2040+t,224+t:pokev+39+t,1:nextt:print"[147]":gosub980
  12. 120 fort=0to7:readx:ready:pokev+t*2,x:pokev+(t*2)+1,y:nextt
  13. 130 pokev+21,255
  14. 140 data 57,64,57,113,57,162,57,211
  15. 150 data 199,64,199,113,199,162,199,211
  16. 160 x=57:y=64:ti$="000000"
  17. 170 x1=v::y1=v+1
  18. 180 x1=(val(k$)-1)*2+v:y1=(val(k$)-1)*2+v+1
  19. 185 forqq=53287to53294:pokeqq,5:next:poke53286+val(k$),1
  20. 190 getk$:ifk$=""thengosub1390:goto190
  21. 195 poke214,8:print:printtab(30)"         "
  22. 200 poke53280,0
  23. 210 print""tab(30)"         "
  24. 220 if k$>="0" and k$<="8" then k1$=k$:goto290
  25. 230 if k$="[145]"then310
  26. 240 if k$="[157]"then320
  27. 250 if k$=""then330
  28. 260 if k$=""then340
  29. 270 if k$=chr$(13) then410
  30. 275 if k$="q"then932
  31. 280 goto 190
  32. 290 x1=(val(k$)-1)*2+v:y1=(val(k$)-1)*2+v+1:k1$=k$
  33. 295 forqq=53287to53294:pokeqq,5:next:poke53286+val(k$),1
  34. 300 x=peek(x1):y=peek(y1):goto190
  35. 310 y=y-49:gosub380:pokey1,y:goto190
  36. 320 x=x-71:gosub350:pokex1,x:goto190
  37. 330 x=x+71:gosub350:pokex1,x:goto190
  38. 340 y=y+49:gosub380:pokey1,y:goto190
  39. 350 if x>199thenx=199
  40. 360 if x<57thenx=57
  41. 370 return
  42. 380 if y>211theny=211
  43. 390 if y<64theny=64
  44. 400 return
  45. 410 restore:fort=1to16:readzz:nextt:rem poke53269,0:te=0
  46. 420 fort=0to7:x(t)=peek(v+t*2):nextt
  47. 430 fort=0to7:y(t)=peek((v+t*2)+1):nextt
  48. 440 print""tab(30)"         ";
  49. 450 print"[157][157][157][157][157][157][157][157][157]";
  50. 460 fora=1to4:readx:ready:fort=0to7
  51. 470 ifx(t)=x and y(t)=ythen poke53280,2:print"[158]"t+1"[157]";:te=10
  52. 480 nextt
  53. 490 nexta:print:ifte=10then k$=k1$:te=0:goto290
  54. 500 data 57,64,57,211,199,64,199,211
  55. 510 fort=0to7:ifx(t)=128andy(t)=64thentb(1)=t+1:goto 530
  56. 520 nextt
  57. 530 fort=0to7:ifx(t)=57andy(t)=113thentb(2)=t+1:goto 550
  58. 540 nextt
  59. 550 fort=0to7:ifx(t)=128andy(t)=113thentb(3)=t+1:goto 570
  60. 560 nextt
  61. 570 fort=0to7:ifx(t)=199andy(t)=113thentb(4)=t+1:goto 590
  62. 580 nextt
  63. 590 fort=0to7:ifx(t)=57andy(t)=162thentb(5)=t+1:goto 610
  64. 600 nextt
  65. 610 fort=0to7:ifx(t)=128andy(t)=162thentb(6)=t+1:goto 630
  66. 620 nextt
  67. 630 fort=0to7:ifx(t)=199andy(t)=162thentb(7)=t+1:goto 650
  68. 640 nextt
  69. 650 fort=0to7:ifx(t)=128andy(t)=211thentb(8)=t+1:goto 660
  70. 660 nextt
  71. 680 a=tb(1):te=0
  72. 690 ifa=tb(2)-1 or a=tb(2)+1 thente=1:goto 950
  73. 700 ifa=tb(3)-1 or a=tb(3)+1 thente=2:goto 950
  74. 710 ifa=tb(4)-1 or a=tb(4)+1 thente=3:goto 950
  75. 720 a=tb(2)
  76. 730 ifa=tb(6)-1 or a=tb(6)+1 thente=4:goto 950
  77. 740 ifa=tb(5)-1 or a=tb(5)+1 thente=5:goto 950
  78. 750 ifa=tb(2)-1 or a=tb(3)+1 thente=6:goto 950
  79. 760 a=tb(3)
  80. 770 ifa=tb(4)-1 or a=tb(4)+1 thente=7:goto 950
  81. 780 ifa=tb(5)-1 or a=tb(5)+1 thente=8:goto 950
  82. 790 ifa=tb(6)-1 or a=tb(6)+1 thente=9:goto 950
  83. 800 ifa=tb(7)-1 or a=tb(7)+1 thente=10:goto 950
  84. 810 a=tb(4)
  85. 820 ifa=tb(6)-1 or a=tb(6)+1 then te=11:goto 950
  86. 830 ifa=tb(7)-1 or a=tb(7)+1 thente=12:goto 950
  87. 840 a=tb(5)
  88. 850 ifa=tb(6)-1 or a=tb(6)+1 thente=13:goto 950
  89. 860 ifa=tb(8)-1 or a=tb(8)+1 thente=14:goto 950
  90. 870 a=tb(6)
  91. 880 ifa=tb(8)-1 or a=tb(8)+1 thente=15:goto 950
  92. 890 ifa=tb(7)-1 or a=tb(7)+1 thente=16:goto 950
  93. 900 a=tb(7)
  94. 910 ifa=tb(8)-1 or a=tb(8)+1 thente=17:goto 950
  95. 920 poke214,18:print:printtab(20)"[129][193][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][212]"
  96. 922 printtab(20)"[195][158]good!!! now ask a[129][195]"
  97. 924 printtab(20)"[195][158]friend to try it.[129][195]"
  98. 926 printtab(20)"[195][159]play again? (y[159]/n[159])[129][195]"
  99. 928 printtab(20)"[200][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][208]"
  100. 929 poke53280,rnd(0)*16
  101. 930 getk$:ifk$<>"y"andk$<>"n"then929
  102. 931 ifk$="y"then940
  103. 932 print"[147]":poke53269,0:poke54272,21
  104. 933 open15,8,15,"r0:hello connect=hello connect":input#15,er%,k$,k$,k$
  105. 934 ifer%<>63thenend
  106. 935 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  107. 936 print"run"
  108. 937 poke631,13:poke632,13:poke633,13:poke198,3:end
  109. 940 ti$="000000":restore:print"[147]":poke53269,0:gosub980:goto120
  110. 950 print"[158]"tab(31);ta$(te)"  ":poke53280,4
  111. 970 k$=k1$:goto290
  112. 980 fort=1024to1063:poket,75:poket+960,75:nextt
  113. 990 fort=1024to2023step40:poket,67:poket+39,67:nextt
  114. 1000 poke1024,65:poke1063,84:poke1984,72:poke2023,80
  115. 1010 print"          [193][203][203][203][203][203][203][203][212]
  116. 1020 [153]"          len       len
  117. 1030 print"          [195]       [195]
  118. 1040 [153]"          len       len
  119. 1050 print"          [195][158]1.     [195]
  120. 1060 [153]" atn(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  121. 1070 print" [195]        [195]       [195]       [195]
  122. 1080 [153]" len        len       len       len
  123. 1090 print" [195]        [195]       [195]       [195]
  124. 1100 [153]" len        len       len       len
  125. 1110 print" [195][158]2.      [195][158]3.     [195][158]4.     [195]
  126. 1120 [153]" str$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  127. 1130 print" [195]        [195]       [195]       [195]
  128. 1140 [153]" len        len       len       len
  129. 1150 print" [195]        [195]       [195]       [195]
  130. 1160 [153]" len        len       len       len
  131. 1170 print" [195][158]5.      [195][158]6.     [195][158]7.     [195]
  132. 1180 [153]" left$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  133. 1190 print"          [195]       [195]
  134. 1200 [153]"          len       len
  135. 1210 print"          [195]       [195]          q [159]- quit"
  136. 1220 print"          [195][158]8.     [195]
  137. 1230 [153]"          left$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  138. 1240 [153]"(NULL)":[151]1183,91:[151]1303,91:[151]1463,91
  139. 1250 [153][163]29)"valclrtouching:"
  140. 1260 [153][163]29)"val"
  141. 1270 [153][163]29)"right$mid$mid$mid$mid$mid$mid$mid$mid$mid$"
  142. 1280 [153][163]29)"peekmid$mid$mid$mid$mid$mid$mid$mid$mid$"
  143. 1290 [153][163]29)"valclrwrong"
  144. 1300 [153][163]29)"valclrplace:"
  145. 1310 [153][163]29)"val"
  146. 1320 [153][163]29)"right$mid$mid$mid$mid$mid$mid$mid$mid$mid$"
  147. 1330 [153][163]29)"peekmid$mid$mid$mid$mid$mid$mid$mid$mid$"
  148. 1340 [153][163]29)"valclrtime:
  149. 1360 printtab(29)"[197]"
  150. 1370 printtab(29)"[201][202][202][202][202][202][202][202][202][202]"
  151. 1380 return
  152. 1390 poke214,14:print:printtab(31)ti$:return
  153. 1400 print"[158][147]":fort=1024to1063:poket,75:poket+960,75:nextt
  154. 1410 fort=1024to2023step40:poket,67:poket+39,67:nextt
  155. 1420 poke1024,65:poke1063,84:poke1984,72:poke2023,80
  156. 1430 fort=0to6:pokev+t*2+1,60:nextt
  157. 1440 pokev+39,2:pokev+40,7:pokev+41,4:pokev+42,10:pokev+43,5:pokev+44,13
  158. 1450 print"
  159. 1460 [153]"sys(NULL)mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$(NULL)
  160. 1470 print"[154] try to place the numbers 1 through 8"
  161. 1480 print"   in the boxes so that consecutive"
  162. 1490 print"  numbers are [159]not[154] next to each other,"
  163. 1500 print"        not even diagonally."
  164. 1510 print
  165. 1520 print"[158][218][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][219]
  166. 1530 [153]"  you can move numbers not ready for"
  167. 1540 [153]"  placing into the four corners until"
  168. 1550 [153]"     you are ready to place them."
  169. 1560 [153]"sys(NULL)mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$mid$(NULL)
  170. 1570 print"[156]  press the number of the sprite you"
  171. 1580 print"   want to move then use the [159]cursor"
  172. 1590 print"     keys.[156]  press [159]return[156] when you"
  173. 1595 print"     think you have the solution."
  174. 1610 print"press any key to continue"
  175. 1620 gettu$:iftu$=""then1620
  176. 1630 print"[147]":poke53269,0:return
  177. 1640 print"[158][147]":fort=1024to1063:poket,75:poket+960,75:nextt
  178. 1650 fort=1024to2023step40:poket,67:poket+39,67:nextt
  179. 1660 poke1024,65:poke1063,84:poke1984,72:poke2023,80
  180. 1670 print"
  181. 1680 [153]"       by clrgilles drouin
  182. 1690 print"          [158][203][203][203][203][203][203][203][203][203][203][203][203][203]
  183. 1700 [153]"           (c) 1989
  184. 1705 print"      all rights reserved."
  185. 1720 v=53248:fort=0to7:poke2040+t,232+t:pokev+39+t,1:nextt
  186. 1730 pokev+21,63
  187. 1740 fort=0to7:pokev+t*2,100:pokev+t*2+1,0:nextt:s=3
  188. 1750 fort=0to200steps:pokev+11,t:nextt
  189. 1760 fort=100to255steps:pokev+10,t:nextt
  190. 1770 fort=200to70step-s:pokev+11,t:nextt
  191. 1780 fort=0to200steps:pokev+9,t:nextt
  192. 1790 fort=100to255steps:pokev+8,t:nextt
  193. 1800 fort=200to70step-s:pokev+9,t:nextt
  194. 1810 fort=255to220step-s:pokev+8,t:nextt
  195. 1820 fort=0to200steps:pokev+7,t:nextt
  196. 1830 fort=100to255steps:pokev+6,t:nextt
  197. 1840 fort=200to70step-s:pokev+7,t:nextt
  198. 1850 fort=255to190step-s:pokev+6,t:nextt
  199. 1860 fort=0to200steps:pokev+5,t:nextt
  200. 1870 fort=100to255steps:pokev+4,t:nextt
  201. 1880 fort=200to70step-s:pokev+5,t:nextt
  202. 1890 fort=255to160step-s:pokev+4,t:nextt
  203. 1900 fort=0to200steps:pokev+3,t:nextt
  204. 1910 fort=100to255steps:pokev+2,t:nextt
  205. 1920 fort=200to70step-s:pokev+3,t:nextt
  206. 1930 fort=255to130step-s:pokev+2,t:nextt
  207. 1940 fort=0to200steps:pokev+1,t:nextt
  208. 1950 fort=100to255steps:pokev+0,t:nextt
  209. 1960 fort=200to70step-s:pokev+1,t:nextt
  210. 1970 fort=255to100step-s:pokev+0,t:nextt
  211. 1980 print"[164][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][220]
  212. 1990 [153]"val  do you want instructions?  val"
  213. 2000 [153]"fn(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)get
  214. 2010 getin$:ifin$=""then2010
  215. 2020 ifin$="y"thengosub1400:goto70
  216. 2030 ifin$="n"thenpoke53269,0:goto70
  217. 2040 goto 2010
  218. 10000 open15,8,15,"s0:super 8":close15:save"super 8",8:end
  219.